home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / patches / ifxgifb1.lha / ImageFX_GIF / Install next >
Text File  |  1995-10-10  |  3KB  |  121 lines
  1. ; ImageFX GIF Modules Install Script
  2. ;
  3. ; Written by Thomas Krehbiel
  4. ;
  5. ; Copyright © 1995 Nova Design, Inc.
  6. ; All Rights Reserved
  7.  
  8. (
  9.  
  10.    ;================================================================
  11.    ; Setup
  12.    ;================================================================
  13.  
  14.    ; script variables...
  15.  
  16.    (set versionname "2.1a")                     ; version number
  17.    (set programname ("ImageFX %s" versionname)) ; name of program
  18.    (set diskname1 "ImageFX_Disk1:")             ; install disk name
  19.    (set diskname2 "ImageFX_Disk2:")             ; second install disk name
  20.    (set diskname3 "ImageFX_Disk3:")             ; third install disk name
  21.    (set diskname4 "ImageFX_Disk4:")             ; fourth install disk name
  22.    (set pdiskname1 "")                          ; patch install disk name
  23.  
  24.    (set tempdir "T:")
  25.  
  26.    ; system information...
  27.  
  28.    (set osver (/ (getversion) 65536))        ; os version
  29.    (set cputype (database "cpu"))            ; cpu type
  30.  
  31.    ;-------------------
  32.    ; Pick a default directory for the installation...
  33.    (set initialdir @default-dest)            ; defaults to biggest drive
  34.    (if (getassign "ImageFX")
  35.       (
  36.          (set initialdir (getassign "ImageFX"))
  37.       )
  38.       ; else
  39.       (
  40.          (if (getassign "ImageFX2")
  41.             (
  42.                (set initialdir (getassign "ImageFX2"))
  43.                ; if we found ImageFX2:, assume user wants to keep ImageFX2:
  44.                (set assignname "ImageFX2")
  45.             )
  46.          )
  47.       )
  48.    )
  49.  
  50.    (set tryagain 1)
  51.    (while tryagain
  52.       (
  53.  
  54.          (set tryagain 0)
  55.  
  56.          ;-------------------
  57.          ; Ask where to install it...
  58.          ;(set wheredir initialdir)
  59.          (set wheredir
  60.             (askdir
  61.                (prompt "Select the directory where ImageFX is currently installed.  The GIF loader "
  62.                        "and saver modules will be installed into this directory.")
  63.                (help @askdir-help)
  64.                (default initialdir)
  65.             )
  66.          )
  67.  
  68.          ;-------------------
  69.          ; Make sure it's a valid ImageFX
  70.          (set checkvar 0)
  71.          (set checkvar (+ checkvar (exists (tackon wheredir "Modules/Loaders/ILBM"))))
  72.          (set checkvar (+ checkvar (exists (tackon wheredir "ImageFX"))))
  73.          (set checkvar (+ checkvar (exists (tackon wheredir "Modules/Savers/ILBM"))))
  74.          (if (<> 3 checkvar)
  75.             (
  76.                (message "`" wheredir "' does not appear to contain a copy of ImageFX.")
  77.                (set tryagain 1)
  78.                (set initialdir wheredir)
  79.             )
  80.          )
  81.  
  82.       )
  83.    )
  84.  
  85.    (message "The GIF modules will be installed in the drawer `" wheredir "'.  If this is correct, click `Proceed'.")
  86.  
  87.    (set @default-dest wheredir)
  88.  
  89.    ;================================================================
  90.    ; INSTALL NEW FILES
  91.    ;================================================================
  92.  
  93.    (working "Installing GIF modules...")
  94.  
  95.    (copyfiles
  96.       (prompt "")
  97.       (help "")
  98.       (source "Modules/Loaders")
  99.       (dest (tackon wheredir "Modules/Loaders"))
  100.       (choices
  101.          "GIF"
  102.       )
  103.    )
  104.  
  105.    (copyfiles
  106.       (prompt "")
  107.       (help "")
  108.       (source "Modules/Savers")
  109.       (dest (tackon wheredir "Modules/Savers"))
  110.       (choices
  111.          "GIF"
  112.       )
  113.    )
  114.  
  115.    ; Installation complete!
  116. )
  117.  
  118. ; Revision History:
  119. ;
  120. ;  10.10.95 tek   Created.
  121.